From 4d1f43c0381536f68fc0f3ae0011b3b3fc869830 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Mar 1993 09:31:37 +0000 Subject: [PATCH] (check_mark): Error if mark is not active. --- src/callint.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/callint.c b/src/callint.c index d688f0e2b1c..0528fe78f2d 100644 --- a/src/callint.c +++ b/src/callint.c @@ -1,5 +1,5 @@ /* Call a Lisp function interactively. - Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -69,9 +69,9 @@ c -- Character.\n\ C -- Command name: symbol with interactive function definition.\n\ d -- Value of point as number. Does not do I/O.\n\ D -- Directory name.\n\ -e -- Event that invoked this command (value of `last-nonmenu-event').\n\ - This skips events without parameters.\n\ - If used more than once, the Nth 'e' returns the Nth parameterized event.\n\ +e -- Parametrized event (i.e., one that's a list) that invoked this command.\n\ + If used more than once, the Nth `e' returns the Nth parameterized event.\n\ + This skips events that are integers or symbols.\n\ f -- Existing file name.\n\ F -- Possibly nonexistent file name.\n\ k -- Key sequence (string).\n\ @@ -141,6 +141,8 @@ check_mark () Lisp_Object tem = Fmarker_buffer (current_buffer->mark); if (NILP (tem) || (XBUFFER (tem) != current_buffer)) error ("The mark is not set now"); + if (NILP (current_buffer->mark_active)) + error ("The mark is not active now"); } -- 2.30.2